home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
commodore-users-of-norman
/
CUON_26_(10-1984).d64
/
string search 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
1KB
|
29 lines
10 REM***************** BASIC LOADER FOR ** STRING SEARCH ***********************
100 PRINT"[147] STRING SEARCHER"
110 PRINT"ONE MOMENT PLEASE"
120 TP=PEEK(55)+256*PEEK(56)
130 TP=TP-186:H=INT((TP)/256):L=TP-H*256:POKE55,L:POKE56,H
140 IN=PEEK(55)+256*PEEK(56):FORC=IN TO IN+185:READI:POKEC,I:CK=CK+I:NEXT:
150 IFCK<>26449 THEN PRINT"ERROR IN DATA":END
160 REM****************** STRING SEARCH DATA**********************
180 DATA 160,17,185,216,0,153,60,3,136,208
190 DATA 247,160,9,177,45,133,217,200,177,45
200 DATA 133,218,200,177,45,133,219,24,160,2
210 DATA 177,47,101,47,105,7,133,220,200,177
220 DATA 47,101,48,133,221,160,0,24,165,47
230 DATA 105,7,133,224,165,48,105,0,133,225
240 DATA 169,0,240,12,160,17,185,60,3,153
250 DATA 216,0,136,208,247,96,24,165,224,105
260 DATA 3,133,224,165,225,105,0,133,225,160
270 DATA 0,177,224,153,229,0,200,192,3,208
280 DATA 246,24,165,220,105,2,133,220,165,221
290 DATA 105,0,133,221,165,229,240,202,208,2
300 DATA 240,210,162,0,134,227,134,226,24,165
310 DATA 217,197,226,240,31,24,165,229,197,227
320 DATA 144,37,164,226,177,218,164,227,209,230
330 DATA 208,6,230,227,230,226,208,226,230,227
340 DATA 169,0,133,226,240,218,160,0,169,1
350 DATA 145,220,200,169,0,145,220,240,197,160
360 DATA 0,152,145,220,240,242
999 PRINT"DONE":NEW